home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / intrfc61.arc / GLOBALS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-28  |  1KB  |  45 lines

  1. unit globals;
  2.  
  3. interface
  4.  
  5. type
  6.   word_array_ptr = ^word_array;
  7.   word_array=array[0..32760] of word;
  8.   byte_array_ptr = ^byte_array;
  9.   byte_array=array[0..65520] of byte;
  10.   option = (do_header,do_src_files,do_src_lines,
  11.              do_name_list,do_implementation,do_entry_pts,
  12.              do_code_blocks,do_const_blocks,do_mystery,
  13.              do_var_blocks,do_unit_blocks,
  14.              do_code,do_const,do_reloc,do_vmt,do_locals);
  15. var
  16.   buffer,tpl_buffer : byte_array_ptr;
  17.   code_buf,const_buf,reloc_buf,vmt_buf : byte_array_ptr;
  18.   code_ofs,const_ofs,reloc_ofs,vmt_ofs : longint;
  19.   tpl_size : longint;
  20.   f:file;
  21.   got_tpl : boolean;
  22.   just_tpl : pointer;
  23.   unit_size : word;
  24.   unitname,uses_path : string;
  25.   indentation : word;
  26.  
  27. const
  28.   active_options : set of option = [do_name_list,do_mystery];
  29.   tab = ^I;
  30.   oneindent = '  ';
  31.  
  32. procedure indent;
  33.  
  34. implementation
  35.  
  36. procedure indent;
  37. var
  38.   count : word;
  39. begin
  40.   for count := 1 to indentation do
  41.     write(oneindent);
  42. end;
  43.  
  44. end.
  45.